Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 3_2 з дисципліни “Основи програмування та алгоритмічні мови” Тема: ітераційні цикли  Постановка задачі З точністю 0.00001 знайти значення змінної:
 Аналітичні викладки

Текст програми з коментарями uses crt; const e=0.00001; {tochnostb} x=0.56; {po usloviy} var y:real; {iskomaya} y0:real; {promegutochnaya peremennaya} n:longint; {schetchik} BEGIN clrscr; writeln('Result of laboratory work 3_2'); writeln('variant 4'); writeln('Executed student of group IP-02 Bondur Vladislav'); repeat n:=n+1; y0:=y; y:=1/sqr(n)+y; writeln('y(',n:2,')=',y:9:8); until abs(y-y0)<e; y:=sin(x)*y; write('Dlya x = ',x:4:2); writeln(' znachenie funkcii y = ',y:0:7); readln; END. Блок-схема алгоритму
Результат виконання програми у вигляді відеокопії екрана / Висновки Отже, перевіримо, чи правильно працює моя програма: Між 315 та 316 елементами суми, різниця складає 0.00001001 Це число більше точності e=0.00001, тому цикл програми не завершується. Між 316 та 317 елементами суми, різниця складає 0.00000995 Це число менше точності e=0.00001, тому на цій ітерації цикл програми завершується. Дійсно, сума
Тоді
Результати співпадають, тому моя програма працює як треба.